unit uImportarTabelaIBPT;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TfrmImportarTabelaIBPT = class(TForm)
    GroupBox1: TGroupBox;
    OpenDialog: TOpenDialog;
    edtArquivo: TEdit;
    btnArquivo: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    btnOk: TBitBtn;
    btnCancelar: TBitBtn;
    procedure btnArquivoClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmImportarTabelaIBPT: TfrmImportarTabelaIBPT;

implementation

{$R *.dfm}

uses uConexao, uDadosProdutos;

procedure TfrmImportarTabelaIBPT.btnArquivoClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    edtArquivo.Text := OpenDialog.FileName;
end;

procedure TfrmImportarTabelaIBPT.btnOkClick(Sender: TObject);
begin
  dmDadosProdutos.ImportarTabelaIBPT(edtArquivo.Text);
end;

end.
